home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _armbob / bench / BobFile3 < prev   
Text File  |  1994-07-14  |  175b  |  15 lines
  1. /* Test 3 - fibonacci */
  2. main()
  3. {
  4.  n = 10;
  5.  t = time();
  6.  for (i=1;i<n;i++)
  7.    print(f(i),"\n");
  8.  print(time()-t," 1/100-secs\n");
  9. }
  10.  
  11. f(x)
  12. {
  13.  return (x<2)?x:(f(x-1)+f(x-2));
  14. }
  15.